<script>on mouseDownend mouseDownon mouseUpmakeCardend mouseUpon makeCardglobal dList,fName, express, dirtyif number of cd btns > 0 or number of cd flds > 0 thenget alert("Note", "Remove all existing items from this card or make a new card?"¬, "New Card", "Remove", "Cancel")if it is "Cancel" then exit makeCarddoMenu "New Card"lock screenif it is "Remove" thenpush cdgo backdoMenu "Delete Card"pop cdend ifunlock screenend ifput return into CRput resSortedList(stackfileName(),"DLOG") into dListput Dialoger("•dialogList" & CR & "on makeHit"¬, "4◊userBox Gray,None,Copy"¬, "5◊userList Monaco,10,1" & CR & dList¬, "6◊userText"& CR &"Dialogs in “"&shortFileName(stackFileName())&"”"¬ --Text at (18,8,186,41)) into dResultcheckResult dResultif fName is empty then put stackFileName() into fNameif line 1 of dResult is not "OK" thenif bg fld "DialogName" is empty then doMenu "delete card"exit makeCardend ifif line 5 of dResult is empty then exit makeCardput char 2 to 9999 of word 1 of line (line 5 of dResult) of dList into dIDif dID is empty then exit makeCardset cursor to watchput empty into jListput dBreaker(fName,dID) into piecesif first word of pieces is "Error:" then boom piecesset rect of bg fld "dialogRect" to (item 2 to 5 of pieces)put item 6 of pieces into line 2 of bg fld "DialogRect"put item 7 of pieces into line 3 of bg fld "DialogRect"set loc of bg fld "dialogRect" to 229,185put item 8 to 99 of line 1 of pieces into bg fld "dialogName"put true into expressrepeat with l = 2 to number of lines in piecesput line l of pieces into anItemget makeObj(anItem)put it & return after jListend repeatdelete last char of jListput jList into bg fld "objList"put empty into iListrepeat with l = 1 to number of lines in jListset cursor to busyput niceObj(line l of jList) & return after iListend repeatdelete last char of iListput iList into bg fld "itemList"put false into expresschoose browse toolput false into expressput true into dirty--visitHomeend makeCardfunction makeObj itemSpecglobal fNameput item 1 of itemSpec into iTypeset editbkgnd to falseif iType is in "btn,chk,rad,cntl,icon,pict" thendoMenu "New Button"put "cd btn id" && (id of cd btn (number of cd btns)) into objset rect of obj to Dialog2CardRect(item 2 to 5 of itemSpec)if iType is "rad" thenset style of obj to RadioButtonset name of obj to item 7 of itemSpecelse if iType is "chk" thenset style of obj to Checkboxset name of obj to item 7 of itemSpecelse if iType is "btn" thenset style of obj to RoundRectset name of obj to item 7 of itemSpecelse if iType is "icon" thenresCopyQuick fName, stackFileName(),"ICON",(item 7 of itemSpec)if first word of the result is "Error:" thenget alert("Caution", "Unable to import an icon:"¬&&(word 2 to 100 of the result), "Continue")else if the result is not empty then put the result into item 7 of itemSpecset style of obj to opaqueset icon of obj to item 7 of itemSpecset name of obj to item 7 of itemSpecset showName of obj to falseelse if iType is "pict" thenresCopyQuick fName, stackFileName(),"PICT",(item 7 of itemSpec)if first word of the result is "Error:" thenget alert("Caution", "Unable to import a picture:"¬&&(word 2 to 100 of the result), "Continue")else if the result is not empty then put the result into item 7 of itemSpecset style of obj to rectset name of obj to item 7 of itemSpecset showName of obj to falseset script of obj to "on mouseUp"&return&"showPict"¬&return&"end mouseUp"&return&return&"on mouseDown"&return&"showPict"¬&return&"pass mouseDown"&return&"end mouseDown"else if iType is "cntl" thenresCopyQuick fName, stackFileName(),"CNTL",(item 7 of itemSpec)if first word of the result is "Error:" thenget alert("Caution", "Unable to import a control:"¬&&(word 2 to 100 of the result), "Continue")else if the result is not emptythen put the result into item 7 of itemSpecset style of obj to rectPutIntoScript obj,"id",item 7 of itemSpecPutIntoScript obj,"init",item 8 of itemSpecPutIntoScript obj,"min",item 9 of itemSpecPutIntoScript obj,"max",item 10 of itemSpecPutIntoScript obj,"proc",item 11 of itemSpecset name of obj to item 12 to 99 of itemSpecset showName of obj to falseend ifelsedoMenu "New Field"put "cd fld id" && (id of cd fld (number of cd flds)) into objset rect of obj to Dialog2CardRect(item 2 to 5 of itemSpec)set lockText of obj to trueif iType is "edit" thenset style of obj to rectset textfont of obj to chicagoset textHeight of obj to 18subtract 3 from item 2 of itemSpecsubtract 3 from item 3 of itemSpecadd 3 to item 4 of itemSpecadd 3 to item 5 of itemSpecset rect of obj to Dialog2CardRect(item 2 to 5 of itemSpec)do "put item 7 to 999 of itemSpec into"&&objelse if iType is "stat" thenset style of obj to opaqueset textFont of obj to Chicagoset textHeight of obj to 14do "put item 7 to 999 of itemSpec into"&&objelse if iType is "user" thenget item 7 of itemSpecif it is empty then get uTypeChoice(obj)if it is "box" thenset style of obj to rectselect objrepeat (number of cd flds + number of cd btns) timesdoMenu "send farther"end repeatelse if it is "list"then set style of obj to scrollingelse if it is "text" thenput "stat" into iTypeset style of obj to opaqueset textFont of obj to Chicagoset textHeight of obj to 16do "put userText into"&&objelse if it is "pop"then set style of obj to shadowPutIntoScript obj,"uType",itend ifend ifPutIntoScript obj,"iType",iTypePutIntoScript obj,"getsHit",(item 6 of itemSpec)return objend makeObjfunction uTypeChoice oglobal objput o into objput Dialoger("•Choice" & return & "on ChoiceHit"¬, "5◊true"¬ --Radio Button "Box", "8◊userBox Black,None,Copy"¬ --Box (Black pen, None fill)) into dResultif word 1 of dResult is "error:" then boom dResultif line 4 of dResult is true then return "text"else if line 5 of dResult is true then return "box"else if line 6 of dResult is true then return "list"else if line 7 of dResult is true then return "pop"end uTypeChoice-- HelpTextImport (Dialog)This button allows you to import an existing dialog into Hypercard for editing. When clicked, you will be presented with a list of dialogs from which to pick. This list is composed of all the dialogs in this stack. To select a dialog from another stack (or any other file, in fact), click on the Open… button and then select the stack. Once you have selected the desired dialog, click OK.The items in the dialog will be converted into card objects (buttons and fields) and placed in the correct positions on the card.Whenever a user item is encountered, the creation process will pause and you will be asked to identify which kind of item it should be converted to (userBox, userText, userPop, userList). You will not be able to change this choice (short of deleting the objects and then creating another) so make sure you are satisfied with your selection.By the way, you can tell which item is being affected by your choice by looking for the item which changes style when the various options are selected. (You can move the dialog out of the way by dragging it).</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>21</top>
<right>483</right>
<bottom>46</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31620</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Push Button</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifput preAssignedLabel("true") into btnLblput false into expresslock screenset cursor to watchset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "btn"putIntoScript obj, "getsHit", "true"set style of obj to roundRectset name of obj to btnLblset width of obj to 80set height of obj to 18set loc of obj to loc of bg fld "dialogRect"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextPush Button ToolThis button allows you to create a new push button for the dialog box that you are designing. You will be asked for the name of the button which will appear as a title in the middle of the button.Double-click on button to edit it; use Position button in dialog to precisely position the button with keyboard.Note: HyperCard displays push buttons in a slightly different manner than they appear in a dialog. This is normal.</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>47</top>
<right>511</right>
<bottom>72</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>18091</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Checkbox</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "chk"putIntoScript obj, "getsHit", "true"set style of obj to checkboxset name of obj to ""set width of obj to 80set height of obj to 16set loc of obj to loc of bg fld "dialogRect"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextCheck Button ToolThis button allows you to create a new checkbox for the dialog box that you are designing. You will be asked for the name of the button which will appear as the title of the button.Double-click on button to edit it; use Position button in dialog to precisely position the button with keyboard.Notice that the right side of the button is expanded automatically when you change the button's name — if you don't want this, simply alter the button's dimensions yourself (if the buttons width has been altered by you, Dialog Maker will no longer adjsut it itself).</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>47</top>
<right>483</right>
<bottom>72</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31475</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Radio Button</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "rad"putIntoScript obj, "getsHit", "true"set style of obj to radioButtonset name of obj to ""set width of obj to 80set height of obj to 16set loc of obj to loc of bg fld "dialogRect"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextRadio Button ToolThis button allows you to create a new radio button for the dialog box that you are designing. You will be asked for the name of the button which will appear as the title of the button.Double-click on button to edit it; use Position button in dialog to precisely position the button with keyboard.Notice that the right side of the button is expanded automatically when you change the button's name — if you don't want this, simply alter the button's dimensions yourself (if the buttons width has beenaltered by you, Dialog Maker will no longer adjsut it itself).Radio buttons are usually grouped together such that only one may be selected at a time. Dialoger groups radio buttons that are next to each other in the item list. To avoid having to re-order items later, create all the radio buttons in a group at once.</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>73</top>
<right>511</right>
<bottom>98</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23281</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Static Text</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objputIntoScript obj, "iType", "stat"putIntoScript obj, "getsHit", "false"set style of obj to opaqueset name of obj to ""set width of obj to 120set height of obj to 18set loc of obj to loc of bg fld "dialogRect"set textFont of obj to Chicagoset textHeight of obj to 16set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextStatic Text ToolThis button allows you to create a new static text area for the dialog box that you are designing. You will be asked for the text which will appear when the dialog is first presented to the user.Notice that the right side of the item is expanded automatically when you alter the text it contains — if you don't want this, simply alter the item’s dimensions yourself (if the item’s width has been altered by you, Dialog Maker will no longer adjust it itself).In addition to the built-in static text facilities of the Dialog Manager, Dialoger also supports other styles of static text items. While not as extensive as HyperCard's they offer a valuable addition to the Dialog Manager's own.Similar to HyperCard, Dialoger supports various styles of static text items. These are discussed below:Plain is a normal static text item. It uses the facilities built into the Dialog Manger and is the most straight-forward. It does have a limitation: the text always appears in the default font for the dialog — normally Chicago.Opaque and Scrolling support text of any style to be entered. Using the Text button, you may control the font, size, style — even alignment and lineheight of the text entered into the item. While more flexible than Plain text, there is a slight penalty in performance and memory for these features.Also, since these styles are an invention of Dialoger, they do not support the replacement text feature of Plain static text (ie ^0, …, ^3).</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>73</top>
<right>483</right>
<bottom>98</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23109</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Editable Text</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objputIntoScript obj, "iType", "edit"putIntoScript obj, "getsHit", "false"set style of obj to rectset name of obj to ""set width of obj to 120set height of obj to 20set loc of obj to loc of bg fld "dialogRect"set textFont of obj to Chicagoset textHeight of obj to 18set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextEdit Text ToolThis button allows you to create a new editable text area for the dialog box that you are designing. You will be asked for the text which will appear as a default when the dialog is first presented to the user. You may leave this blank if desired.If you want to change the height of the editable text area, you must be careful. The text will "jump" when edited unless you set the height to 6 + (16 * #of lines) (ie 22 = 1 line high, 38 = 2 lines high, 54 = 3 lines high, etc.). A newly created editable text area is the correct height for 1 line.In addition to the built-in editable text facilities of the Dialog Manager, Dialoger also supports other styles of editable text items. While not as extensive as HyperCard's they offer a valuable addition to the Dialog Manager's own.Plain is a normal editable text item. It uses the facilities built into the Dialog Manger and is the most straight-forward. It does have a limitation: the text always appears in the default font for the dialog — normally Chicago.Rectangle and Scrolling support text of any style to be entered. Using the Text button, you may control the font, size, style — even alignment and lineheight of the text entered into the item. While more flexible than Plain text, there is a slight penalty in performance and memory for these features.Protected masks entry into the text item by displaying symbols rather than actual characters as they are typed. This feature is handy for requesting passwords or other secure information.</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>99</top>
<right>483</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26168</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ICON Tool</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "icon"putIntoScript obj, "getsHit", "false"set style of obj to opaqueset name of obj to "0"set showName of obj to falseset width of obj to 32set height of obj to 32set loc of obj to loc of bg fld "dialogRect"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextIcon ToolThis button allows you to create a new icon item for the dialog box that you are designing. You will be presented with a list of icons from which to pick. This list is composed of all the icons in this stack. Once you have selected the desired icon (its name and ID appear below the list), click OK. The new icon item created.To select an icon from another stack, click on the Open… button and then select the stack. The icons in that stack will now appear in the list. Once an icon has been chosen, it will be copied into the Dialog Maker stack.You may also turn a piece of the card into an icon using the dialog's New button or delete an existing icon using the Delete button.</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>151</top>
<right>511</right>
<bottom>176</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>10114</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>List</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objputIntoScript obj, "iType", "user"putIntoScript obj, "uType", "list"putIntoScript obj, "getsHit", "true"set style of obj to scrollingset name of obj to ""set width of obj to 160set height of obj to 67set loc of obj to loc of bg fld "dialogRect"set textFont of obj to Chicagoset textHeight of obj to 16set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextuserList ToolThis button allows you to create a new list item for the dialog box that you are designing. If you enter in the correct contents for the list, the Install button will be able to generate the proper script for creating the dialog.To change the contents of a list, double-click on the field. The Text Style button allows you to change the font and size of the text in which the list will appear. Alignment and styles do not apply. Likewise, you should not change the textHeight of the text, however, since it isset to the way it will be displayed in the dialog... making changes will only may the card look different that the dialog.If you are using Dialog Maker to design dialogs which will not be displayed by dialoger, you cannot use these items since they are an invention of Dialoger and have no meaning elsewhere.</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>151</top>
<right>483</right>
<bottom>176</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28819</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PopUp</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objputIntoScript obj, "iType", "user"putIntoScript obj, "uType", "pop"putIntoScript obj, "getsHit", "true"set style of obj to shadowset name of obj to ""set width of obj to 80set height of obj to 18set loc of obj to loc of bg fld "dialogRect"set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextuserPop ToolThis button allows you to create a new popUp menu item for the dialog box that you are designing. If you enter in the correct contents for the popup, the Install button will be able to generate the proper script for creating the dialog.To change the contents of a popUp, double-click on the field.PopUps may only be in Chicago 12ptIf you are using Dialog Maker to design dialogs which will not be displayed by dialoger, you cannot use these items since they are an invention ofDialoger and have no meaning elsewhere.</script>
</part>
<part>
<id>14</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>125</top>
<right>511</right>
<bottom>150</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16487</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Box</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objrepeat (fldNo - 1) + (number of cd btns) timesdoMenu "send farther"end repeatputIntoScript obj, "iType", "user"putIntoScript obj, "uType", "box"putIntoScript obj, "getsHit", "false"set style of obj to rectset name of obj to ""set width of obj to 100set height of obj to 40set loc of obj to loc of bg fld "dialogRect"set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextuserBox ToolThis button allows you to create a box for the dialog box that you are designing. While you have great control over how the box will be displayed in the dialog (pen pattern, fill pattern, etc.…), these adjustments will not be readily apparent until you Show the actual dialog — HyperCard is incapable of displaying such niceties.Double-click on item to edit it; use Position button to precisely position the item. Like the various patterns and modes, the title will not appear until you Show the dialog.If you are using Dialog Maker to design dialogs which will not be displayed by dialoger, you should use these items to represent the "user areas" in the dialogs.Like pictures, boxes may also be split into a grid of buttons. Since they have no graphic image, they are most often placed over* another graphic (most likely a picture) to make the image come alive! Similar to using picture buttons, this capability is provided so that a portion of a picture may be divided into buttons.To access this capability, click on "Receives “Hits”…" in the item specifications dialog. Another dialog is presented which allows you to determine how many buttons the box should be split into. Notice that only one selection logics is supported: push button logic. This is due to limitations of the Dialog Manager. If you need Radio Button Logic, use a picture button instead.Note: The box must appear before the graphic in the item list or it will never "see" any clicks upon it.</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>125</top>
<right>483</right>
<bottom>150</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>29457</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Text</name>
<script>on mouseDownend mouseDownon mouseUpanswer "This dialog item is no longer used. Instead, use static text"¬&&"and click on “Styled…”"exit mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Field"put number of cd flds into fldNoput "cd fld id"&&(id of cd fld fldNo) into objputIntoScript obj, "iType", "user"putIntoScript obj, "uType", "text"putIntoScript obj, "getsHit", "false"set style of obj to opaqueset name of obj to ""set width of obj to 120set height of obj to 40set loc of obj to loc of bg fld "dialogRect"set textFont of obj to Chicagoset textHeight of obj to 16set lockText of obj to truechoose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextuserText Tool________________________________________      THIS TOOL IS NO LONGER USED________________________________________This tool had been used to create a special kind of user item which allowed styled text to be displayed in a dialog.The current version of Dialoger does not use this tool as the static text item has been enhanced to accomodate these capabilities.So, rather than using this, click on the static text tool, and then use the Text button to specify the text styles you want.</script>
</part>
<part>
<id>20</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>123</left>
<top>2</top>
<right>353</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>DialogName</name>
<script>on closeFieldglobal dirtyput true into dirtydelete line 2 to 999 of bg fld dialogNameend closeFieldon mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifend mouseUp-- HelpTextDialog NameThis is the name of the dialog. It may be changed when making thedialog or by simply typing in a new name.</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>99</top>
<right>511</right>
<bottom>124</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11708</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>PICT tool</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "pict"putIntoScript obj, "getsHit", "false"set style of obj to rectset name of obj to "0"set showName of obj to falseset width of obj to 64set height of obj to 64set loc of obj to loc of bg fld "dialogRect"set script of obj to "on mouseUp"&return&"showPict"¬&return&"end mouseUp"&return&return&"on mouseDown"&return&"showPict"¬&return&"pass mouseDown"&return&"end mouseDown"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextPicture ToolThis button allows you to create a new picture item for the dialog box that you are designing. You will be presented with a list composed of all the PICTs in this stack. To select a PICT from another stack, click on the Open… button and then select the stack. Once you have selected the desired PICT (its name and ID appear below the list), click OK. The PICT will be copied into this stack if necessary and the new picture item created. You may also turn a piece of the card into a new picture using the dialog's New button or delete an existing one using the Delete buttonWhile you may alter the size of the PICT, be aware that doing so will cause the image to be distorted.Normally, picture items appear only as white boxes. To see the actual PICT displayed, simply click on it.To access this capability, click on "Receives “Hits”…" in the item specifications dialog. Another dialog is presented which allows you to determine how many buttons the picture should be split into. Also, two selection logics are supported: 1) push button logic (button does not remain selected after clicking on it), and 2) radio button logic (the button remains selected).</script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>202</top>
<right>509</right>
<bottom>220</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Create</name>
<script>on mouseDownend mouseDownon mouseUp bypFlagmakeDialog bypFlagend mouseUpon makeDialog bypFlagglobal dirtyget number of lines in bg fld "objList"if it = 0 thenget alert("Stop", "There must be at least one item in the dialog.", "Cancel")exit to hyperCardend ifif bypFlag is not truethen if editDialog() is false then exit makeDialoglock screenunlock screenrepeat with l = 1 to number of lines in bg fld "objList"set cursor to busyput line l of bg fld "objList" into objput getFromScript(obj,"iType") into iTypeif iType is "card" thencopyPicput "pict"&return after iTypesput (rect of bg fld "dialogRect")&return after iRectsput "Clipboard"&return after iTextsput "false"&return after getsHitselseput iType & return after iTypesput getFromScript(obj,"getsHit") & return after getsHitsput (rect of obj) into oRectif iType is "edit" or (iType is "stat" and style of obj is "scrolling") thenadd 3 to item 1 of oRectadd 3 to item 2 of oRectsubtract 3 from item 3 of oRectsubtract 3 from item 4 of oRectif GetFromScript(obj,"Scroll")then subtract 16 from item 3 of oRectend ifput oRect&return after iRectsif iType is in "btn,rad,chk,pict"then put short name of obj & return after iTextselse if iType is "cntl" thenput GetFromScript(obj,"ID") into oldIDget cMaker(GetFromScript(obj,"proc")¬,(short name of obj)¬,(rect of obj)¬,GetFromScript(obj,"init")¬,GetFromScript(obj,"min")¬,GetFromScript(obj,"max")¬,GetFromScript(obj,"ID"))checkResult itputIntoScript obj,"ID",itput it & return after iTextselse if iType is "icon"then put (icon of obj) & return after iTextselse if iType is in "edit,stat"then do "put"&&obj&"&return after iTexts"else if iType is "user"then put getFromScript(obj,"uType")&return after iTextsend ifend repeatdelete last char of iTextsdelete last char of iTypedelete last char of iRectsdelete last char of getsHitsput (line 1 of bg fld "dialogName")¬&return&(rect of bg fld "dialogRect")¬&return&(line 1 of bg fld "dialogName")¬&return&(line 2 of bg fld "dialogRect")¬&return&(line 3 of bg fld "dialogRect")¬into dInfoget dMaker(dInfo,iTypes,iRects,iTexts,getsHits)if it contains "-108" -- HC might clean out some storage for usthen get dMaker(dInfo,iTypes,iRects,iTexts,getsHits)if first word of it is "Error:" thenget alert("Stop",it,"Cancel")exit makeDialogend ifput false into dirtywriteScriptsend makeDialogon copyPiclock screenchoose select tooldrag from (topLeft of bg fld "dialogRect") ¬to (bottomRight of bg fld "dialogRect") with cmdKey-- doMenu "Select"doMenu "Copy Picture"choose browse toolunlock screenend copyPicon writeScriptsput empty into theScriptput 0 into bumperput item 1 of line 5 of bg fld "DialogRect" into theHandlerget offSet(("end"&&theHandler),(script of this cd))¬- offSet(("on"&&theHandler),(script of this cd))¬+ length("end"&&theHandler)if theHandler is not empty ¬and ((theHandler is not in the script of this cd)¬or (it = item 2 of line 5 of bg fld "DialogRect")) thenput "on"&&theHandler&&"dialog, itemHit, partHit"&return into theScriptput " -- Hit handler created on: "&the long date&return after theScriptput return & " if itemHit = 0 then -- Initialize dialog" &return after theScriptrepeat with l = 1 to number of lines in bg fld "objList"put line l of bg fld "objList" into objget getFromScript(obj,"getsHit")if it is true thenput return&" else if itemHit ="&&l&&"then -- "¬&(line l of bg fld "itemList") & return after theScriptadd 4 to bumperend ifend repeatput return&"end if" & return after theScriptput " end"&&theHandler & return after theScriptput length(theScript) into item 2 of line 5 of bg fld "DialogRect"put (length(theScript)+bumper+5) into item 2 of line 5 of hitHandlerend ifput line 6 of bg fld "DialogRect" into theHandlerif theHandler is not empty and theHandler is not in the script of this cd thenput return& "on"&&theHandler&&"dialog, errID"¬&return&"-- Called for all non-fatal errors."&return after theScriptput return & "answer " "e&"Error encountered:&&""e&"errID" after theScriptput return&"end"&&theHandler after theScriptend ifset script of this cd to theScript & return & return & (the script of this cd)end writeScripts-- HelpTextCreate (Dialog)The Create button transforms the HyperCard objects into a real dialog (ie the necessary DLOG and DITL resources).When clicked, you will be presented with a list of all dialog items which will be included in the new dialog with a place to enter or change the name of the dialog itself. In addition, two buttons labeled Up and Down are provided so you can change the order in which the items are listed - and hence the order in which they appear in the DITL.This order is important for a variety of reasons:> Tab order. The tab key will move from the first editable text item in the dialog item list to the last. Normally, this should correspond to the upper-left-most item to the bottom-right-most item.> Radio Buttons are grouped according to their appearance in the list. All radio buttons which appear consecutively in the list will be grouped together such that only one may be selected at a time. If you want two separate groups of radio buttons, make sure they are split by some other type of item in the list - otherwise they will be considered one large group.> Stacking order - when two item overlap, the item which receives the "hit" is the one which appears first on the list. Therefore, if you have, for example, userBox areas surrounding a group of radio buttons, the box must be listed after the radio buttons or they will never get the click which would select them.The dialog name serves as both the resource name for the DLOG resource and the title (in the case of dialogs with title bars). The popup menu allows you to select the dialog window type. (The titled + choice refers to the presence of a Go Away box).The checkbox Include Card Pic allows you to easily incorporate any graphics you have created on the card as a picture item. When checked, the card graphic will be transformed into a PICT resource and included in the list.Note: if the total area of the card graphic covers some other items, you will probably need to take the extra step of transforming the pieces into PICTs first (using PICT Maker) and then laying them out so they don't overlap.The Options button allows you to set various attributes of the dialog as a whole. You may set the way in which the dialog is being used (i.e. Modal, Modeless, Orphan, Float), the location at which the dialog is displayed, and the name of the hit handler to be used. If a hit handler is specified, a sample on will be created automatically in the card's script. This handler is used when Showing the dialog within Dialog Maker and is included in Exported buttons as well so it an ideal way to develop fully function interactive dialogs entirely within Dialog Maker.Other features such as the changing the default item, the cancel item and specifying a list which is to be key scrolled are also accessable from here.</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>222</top>
<right>509</right>
<bottom>240</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show</name>
<script>on mouseDownend mouseDownon mouseUpglobal dResult, exampleWindowcheck4Dirtyset cursor to watchif first char of bg fld "DialogName" is "!" thenput return into CRput Dialoger("•ShowExample" & CR & "on showHit" & CR & "modeless"¬& CR & "Title"&&(bg fld "DialogName")&&"Examples"¬, "1◊NoDismiss"¬, "2◊PictButton 1,1,push"¬, "6◊UserBox Gray"¬, "3◊StyledText Geneva,10,."¬, "4◊UserList Monaco,9,1" & CR & (bg fld "syntaxList")¬, "5◊StyledText Monaco,9"¬) into exampleWindowexit mouseUpend ifget inParm(1)if it is not emptythen put return&"1◊"&it into in1else put empty into in1get inParm(2)if it is not emptythen put return&"2◊"&it into in2else put empty into in2put dialoger(inParm(0)&in1¬,"Param0"&return&"Param1"&return&"Param2"&return&"Param3"&in2¬,inParm(3),inParm(4),inParm(5),inParm(6)¬,inParm(7),inParm(8),inParm(9),inParm(10),inParm(11),inParm(12)¬,inParm(13),inParm(14),inParm(15),inParm(16)) into dResultif first word of dResult is "error:" then boom dResultend mouseUpon showHit dialog, itemHit, partHitglobal exampleWindowif itemHit=-1 thenput empty into exampleWindowelse if itemHit = 1 thendo dContents(dialog,5)else if itemHit = 2 thensend mouseUp&&"Lockit" to bg btn "About"else if itemHit = 4 thenget dContents(dialog,4,"alt")if it is not emptythen dChanger dialog,"5◊"&it,"5◊Select 999,999"end ifend showHit-- HelpTextShow (Dialog)This button allows you to quickly preview what the dialog will actually look like. It invokes Dialoger with the necessary parameters to display the dialog as it is represented on the card.Note: This button does not recreate the dialog. Therefore, any changes in the dialog itself (such as the position of the items) will not be reflected unless it has been recreated using the Create button above.Changes that require making dialog again include:- position of items- size of items- addition of items- deletion of items- re-ordering of items- title of checkbox, radio button or push button- text in an editable or static text itemChanges that do not require making the dialog again:- text of userText, userPop, userList- font & size of userText, userListWhen Dialog Maker believes that the card and the dialog are out of sych, it will give you the option of re-Creating the dialog first.-- ScriptEdit™ Prefs:Monaco,9,84,18,260,303,586,602,0</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>485</left>
<top>21</top>
<right>511</right>
<bottom>46</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>28849</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseDownend mouseDown--Sample script for invoking "theHelp"--Created on Tuesday, January 30, 1990on mouseUp theLocglobal dResult, lastObjput return into CRglobal cmdDescsif cmdDescs is empty then getCmdDescput name of me into lastObjput HelpText(lastObj) into theTextput line 1 of theText into theTitledelete line 1 to 2 of theTextput empty into cmdPopif displayColors()>4 then put 3223 into thePict else put empty into thePictif theLoc is not emptythen put "0◊Loc"&&theLoc into placerelse put empty into placerput Dialoger("•theHelp" & CR & "Modeless" ¬& CR & "defaultItem 0" & CR & "on helpHit"¬& CR & "Title "&theTitle & CR & "cancelItem 0"¬, placer ¬, "1◊PictButton 3,4,Push"¬, "2◊PictButton 1,4,Push"¬, "3◊PictButton 3,1,Push"¬, "4◊"&thePict¬, "5◊StyledText Geneva,9"& CR &theText¬, "7◊userPop 0,0,FixedWidth" & CR & cmdPop¬, "8◊true"¬, "11◊userBox gray"¬) into dResultif word 1 of dResult is "Error:"then answer dResultend mouseUpon helpHit dialog, itemHit, partHitglobal lastObj,theTitleglobal cmds1,cmds2,cmds3,cmds4,cmds5,cmds6global cmds7,cmds8,cmds9,cmds10,cmds11,cmds12,cmds13,cmdDescs,theCmdsif cmdDescs is empty then getCmdDescif itemHit = 0 thenelse if itemHit = 1 thenset cursor to watchdo "put cmds"&(partHit+1)&&"into theCmds"get stripItem(theCmds,2)dChanger dialog,"2◊Select 0","3◊Select 0","7◊New"¬&return&it,"7◊Select 999","8◊true"else if itemHit = 2 thenset cursor to watchput cmds1 into theCmdsget stripItem(theCmds,2)dChanger dialog,"1◊Select 0","3◊Select 0"¬,"7◊New"&return&it,"7◊Select 999","12◊true"else if itemHit = 3 thenset cursor to watchput empty into theCmdsdChanger dialog,"1◊Select 0","2◊Select 0"¬, "7◊New"&return,"7◊Select 999","8◊true"else if itemHit = 6 thenif lastObj is not empty thenget theTitle & return & return & dContents(dialog,5)--SetHelpText lastObj,itend ifelse if itemHit = 7 thenset cursor to watchget dContents(dialog,7,"alt")put item 1 of line it of theCmds into theTitleput line (item 2 of line it of theCmds) of cmdDescs into theTextput unscrunch(theText) into theTextdChanger dialog, "0◊Title"&&theTitle, "9◊true","5◊"&theTextelse if itemHit = 8 thenput HelpText(lastObj) into theTextput line 1 of theText into theTitledelete line 1 to 2 of theTextdChanger dialog,"","5◊"&theText, "0◊Title"&&theTitle,"7◊Select 999"checkResult result()else if itemHit = 9 thenget dContents(dialog,3)if it <> 0 thenanswer "There are no commands for these tools." with OKdChanger dialog,"8◊true"checkResult result()end ifend ifif partHit is not 0 thenget "bg btn"&"e&objText(itemHit, partHit)"eput it into lastObjput HelpText(it) into theTextput line 1 of theText into theTitledelete line 1 to 2 of theTextdChanger dialog,"","5◊"&theText, "0◊Title"&&theTitlecheckResult result()end ifend helpHit-- HelpTextGeneral HelpLurking behind the tool palette shown at left is the bulk of the power of Dialog Maker. This palette is split into three parts.The top part is a set of a dozen tools which allow you to create dialog items on the card. Clicking on one will make the indicated dialog item.The middle part consists of operations on the Dialog as a whole. These tools allow you import existing dialogs, create real dialog resources, show the actual dialog and finally to export the completed dialog to another stack.The final part access three additional windows: Helper — where you are now, Objector — a sophisticated alignment dialog, and Index — a table of contents for dialogs in the stack.Each of the tools on the top section of the palette represents a different kind of dialog item. To add an item to the dialog you are designing, click on the appropriate tool. A new item will be created and a specifications dialog presented. With this specifications dialog you can control most aspects of an item's appearance and operation. (You can get this dialog at any time by double-clicking on the item).Once created, the item may be dragged into place. So too may it be resized in the standard HuperCard way — by dragging any corner. In addition, each card comes with a box already in place. This box represents the whole dialog so items should be positioned within it. Like individual items, it may be dragged, resized and even double-clicked.Unlike "normal" HyperCard, which makes you switch back and forth between the "button tool" and the "field tool" to manipulate objects (buttons and fields), Dialog Maker makes it easy to manipulate them together. In most cases, working with the browse tool is just like working with the button (or field) tool — only better.You can select multiple objects, move them together, resize them together, even delete them together using the techniques summarized on the next card. Especially handy is the ability to restrict virtually all these activities to an invisible grid. To do so, simply depress the Command Key while dragging or resizing. And, if you want to see the objects move themselves (rather than their outlines) hold down the Caps Lock Key. Other techniques are:To select an object> click on itTo add another object to the selection> shift-click on itTo remove an object from the selection> shift-click on itTo move object(s)> drag themTo resize object(s)> drag one of their cornersTo undo either of above while dragging> drag to menubarTo align (etc.…) group of objects> double-click on selectionTo edit an object> double-click on objectTo nudge object(s) while selected> use Arrow keysTo align selected objects> use Shift + Arrow keysTo resize selected objects> use Option + Arrow keysTo align by resizing> use Shift + Option + Arrow keysTo delete object(s) while selected> use Delete key</script>
</part>
<part>
<id>36</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>306</left>
<top>310</top>
<right>456</right>
<bottom>342</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>10</textHeight>
<name>itemList</name>
<script>on mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifreBuildObjListend mouseUp-- HelpTextDialog Items ListThis list is for reference only. It is the list of items appearing inthe dialog.</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>165</left>
<top>0</top>
<right>279</right>
<bottom>19</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Display PICTs</name>
<script>on mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifrepeat with l = 1 to number of lines in bg fld "objList"set cursor to busyput line l of bg fld "objList" into objget GetFromScript(obj,"iType")if it is "pict" thenget rect of objGetPicture (short name of obj), (item 1 of it)¬,(item 2 of it), (item 3 of it), (item 4 of it)end ifend repeatend mouseUp-- HelpTextDisplay PICTs buttonThis button will find all the pictures in this dialog and display them.Note since HyperCard knows nothing about these pictures, they will goaway as soon as they are obscured by something else. To get them back,simply click on this button or click on the individual picture items.</script>
</part>
<part>
<id>41</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>269</top>
<right>508</right>
<bottom>281</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>ICON</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifiMakerend mouseUpon iMakerask "Name for new ICON:"if it is not empty thenget iMaker("",it)get alert("Note", "The icon has been installed as #"&it, "OK")end ifend iMaker-- HelpTextICON MakerThis button allows you to create icons out of any part of the card.Simply click on this button, enter a name for the icon beingcreated and then position the box over the area to be transformed intoan icon. (Unlike PICT maker, the pixels under the selection box are notpart of the image)The newly created icon may be used in an icon item by selectingit from the list.Note: The icon is made up of exactly what appears on the card inarea selected; regarless of whether it is composed of buttons, icons,card art, background art, etc. - these are all "captured".</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>297</top>
<right>508</right>
<bottom>309</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>SICN</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifsMakerend mouseUpon sMakerask "Name for new SICN:"if it is not empty thenget sMaker("",it)get alert("Note", "The small icon has been installed as #"&it, "OK")end ifend sMaker-- HelpTextSICN MakerThis button allows you to create small icons out of any part of thecard. Simply click on this button, enter a name for the small icon beingcreated and then position the box over the area to be transformed intoan icon. (Unlike pMaker, the pixels under the selection box are notpart of the image)The newly created small icon may be used in lists using the Meta LDEF(see help).Note: The small icon is made up of exactly what appears on the card inarea selected; regarless of whether it is composed of buttons, icons,card art, background art, etc. - these are all "captured".</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>315</top>
<right>511</right>
<bottom>341</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>18389</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Objector</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlag, objSelection, anchorObjif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifglobal theScript -- to be performed for each obj selectedput bg fld "itemList" into nListput return into crput "Select card objects below and options at right."¬&&"Note: First object selected below will serve as the anchor"¬&&"for alignment operations (unless To Grid is checked)." into instructionsget Dialoger("•Objector"&cr&"on ObjectorHit"¬,"25◊userBox"¬,""¬,"userPop 0,14"&cr&"Left"&cr&"Center"&cr&"Right"&cr&"(-"&cr&"None<I"¬,"userPop 0,15"&cr&"Top"&cr&"Center"&cr&"Bottom"&cr&"(-"&cr&"None<I"¬,"userPop 0,16"&cr&"Lefts"&cr&"Centers"&cr&"Rights"&cr&"(-"&cr&"None<I"¬,"userPop 0,17"&cr&"Tops"&cr&"Centers"&cr&"Bottoms"&cr&"(-"&cr&"None<I"¬,"userList Geneva,10"&cr&nList¬,"userText Geneva,10,."&cr&instructions)lock screenunlock screencheckResult itif line 1 of it is empty then exit mouseUpset cursor to watchput selectedObjs(line 8 of it) into oListsizeObjs oList,line 12 of it, line 13 of itpositionObjs oList,line 10 of it, line 11 of italignObjs oList,line 4 of it, line 5 of it,anchorObj,line 18 of itif line 19 of it is truethen abutObjs oList,line 6 of it, line 7 of itelse distributeObjs oList,line 6 of it, line 7 of itxScript oList, theScriptend mouseUpon xScript objectList, scriptLineif scriptLine is empty then exit xScriptrepeat with l = 1 to number of lines in objectListset cursor to busyput line l of objectList into objdo scriptLineend repeatend xScriptfunction selectedObjs selectedLinesput empty into oListif selectedLines is empty then return oListrepeat with i = 1 to number of items in selectedLinesput line (item i of selectedLines) of bg fld "objList" & return after oListend repeatdelete last char of oListreturn oListend selectedObjson sizeObjs oList,width,heightrepeat with l = 1 to number of lines in oListset cursor to busyput line l of oList into objget rect of objif width is not empty and width <> 0then put item 1 of it + width into item 3 of itif height is not empty and height <> 0then put item 2 of it + height into item 4 of itset rect of obj to itend repeatend sizeObjson positionObjs oList,dH,dVrepeat with l = 1 to number of lines in oListset cursor to busyput line l of oList into objget topLeft of objif dH is not empty and dH <> 0then add dH to item 1 of itif dV is not empty and dV <> 0then add dV to item 2 of itset TopLeft of obj to itend repeatend positionObjson AlignObjs oList,h,v,targetObj, gridFlagif targetObj is empty then exit AlignObjsif gridFlag is not true thenif h is "Left"then put left of targetObj into newHelse if h is "Center"then put item 1 of loc of targetObj into newHelse if h is "Right"then put right of targetObj into newHif v is "Top"then put top of targetObj into newVelse if v is "Center"then put item 2 of loc of targetObj into newVelse if v is "Bottom"then put bottom of targetObj into newVend ifrepeat with l = 1 to number of lines in oListset cursor to busyput line l of oList into objget loc of objif h is "Left" thenif gridFlag is truethen put trunc((left of obj) / 8)*8 into newHset left of obj to newHelse if h is "Center" thenif gridFlag is truethen put trunc((item 1 of it) / 8)*8 into newHput newH into item 1 of itset loc of obj to itelse if h is "Right" thenif gridFlag is truethen put trunc((right of obj) / 8)*8 into newHset right of obj to newHend ifif v is "Top" thenif gridFlag is truethen put trunc((top of obj) / 8)*8 into newVset top of obj to newVelse if v is "Center" thenif gridFlag is truethen put trunc((item 2 of it) / 8)*8 into newVput newV into item 2 of itset loc of obj to itelse if v is "Bottom" thenif gridFlag is truethen put trunc((bottom of obj) / 8)*8 into newVset bottom of obj to newVend ifend repeatend alignObjson distributeObjs oList,h,vglobal hList,gList,vListput oList into gListput number of lines in gList into objCntif objCnt <= 2 then exit distributeObjs-- align horizonalif h = "Lefts" then get "put (left of obj)&return after hList"else if h = "Centers" then get "put (item 1 of loc of obj)&return after hList"else if h = "Rights" then get "put (right of obj)&return after hList"else get emptyif it is not empty thenput it into cmdput empty into hListrepeat with l = 1 to number of lines in gListput line l of gList into objdo cmdend repeatdelete last char of hListCoSortInt "hList","gList"end ifput line 1 of hList into hStartput (last line of hList - line 1 of hList) / (objCnt - 1) into hSpacerepeat with l = 2 to objCnt-1set cursor to busyput line l of gList into objput round(hStart + (l-1) * hSpace) into newHget loc of objif h = "Lefts" thenset left of obj to newHelse if h = "Centers" thenput newH into item 1 of itset loc of obj to itelse if h = "Rights" thenset right of obj to newHend ifend repeat-- align verticalif v = "Tops" then get "put (top of obj)&return after vList"else if v = "Centers" then get "put (item 2 of loc of obj)&return after vList"else if v = "Bottoms" then get "put (bottom of obj)&return after vList"else get emptyif it is not empty thenput it into cmdput empty into vListrepeat with l = 1 to number of lines in gListput line l of gList into objdo cmdend repeatdelete last char of vListCoSortInt "vList","gList"end ifput line 1 of vList into vStartput (last line of vList - line 1 of vList) / (objCnt - 1) into vSpacerepeat with l = 2 to objCnt-1set cursor to busyput line l of gList into objput round(vStart + (l-1) * vSpace) into newVget loc of objif v = "Tops" thenset top of obj to newVelse if v = "Centers" thenput newV into item 2 of itset loc of obj to itelse if v = "Bottoms" thenset bottom of obj to newVend ifend repeatend distributeObjson abutObjs oList,h,vglobal hList,gList,vListput oList into gListput number of lines in gList into objCntif objCnt <= 2 then exit abutObjs-- horizonalif h = "Lefts" then get "put (left of obj)&return after hList"else if h = "Centers" then get "put (item 1 of loc of obj)&return after hList"else if h = "Rights" then get "put (right of obj)&return after hList"else get emptyif it is not empty thenput it into cmdput empty into hListrepeat with l = 1 to number of lines in gListput line l of gList into objdo cmdend repeatdelete last char of hListCoSortInt "hList","gList"if h is "Lefts" then put 1 into mLineelse if h is "Centers" then put round (objCnt/2) into mLineelse if h is "Rights" then put objCnt into mLinerepeat with l = mLine+1 to objCntset cursor to busyput line l of gList into objput line l-1 of gList into lastObjset left of obj to right of lastObjend repeatrepeat with l = mLine-1 down to 1set cursor to busyput line l of gList into objput line l+1 of gList into lastObjset right of obj to left of lastObjend repeatend if-- Verticalif v = "Tops" then get "put (top of obj)&return after vList"else if v = "Centers" then get "put (item 2 of loc of obj)&return after vList"else if v = "bottoms" then get "put (bottom of obj)&return after vList"else get emptyif it is not empty thenput it into cmdput empty into vListrepeat with l = 1 to number of lines in gListput line l of gList into objdo cmdend repeatdelete last char of vListCoSortInt "vList","gList"if v is "Tops" then put 1 into mLineelse if v is "Centers" then put round (objCnt/2) into mLineelse if v is "bottoms" then put objCnt into mLinerepeat with l = mLine+1 to objCntset cursor to busyput line l of gList into objput line l-1 of gList into lastObjset top of obj to bottom of lastObjend repeatrepeat with l = mLine-1 down to 1set cursor to busyput line l of gList into objput line l+1 of gList into lastObjset bottom of obj to top of lastObjend repeatend ifend abutObjs-- HelpTextObjector HelpThis button provides access to a powerful alignment tool which can manipulate any and all of the items in the dialog you are creating. After clicking on the button, a dialog appears with a list of dialog item on the left and a number of areas on the right.First select the items which you want to manipulate (don't forget this step!) If you had a previous selection, Objector remembers it. If you plan to align object to each other, be sure and select the one you don't want moved first.Now select the options you want:Alignment:Select from the popUp menus what part of the objects you want aligned. You may leave either (or both) blank to signify that you don't want anyalignment in that direction. For example, selecting Left from the Horizonal menu alone would cause the left-sides of all the selected objects to be aligned. If you also selected Bottom from the Vertical menu then the bottom-left corner of all the selected objects would be aligned. If you choose To Grid, then the objects will be aligned to the nearest grid line, instead of to each other.Distribute:Distribute allows you to spread a set of objects out evenly from one place to another. The "from" and "to" depend on your selections in the Horizonal and Vertical menus. For example, if you select Leftsfrom the Horizonal menu, then the left-most object selected will remain where it is, as will the right most. The remainder of the selected objects will be distributed between them suck that the distance from the left side of each to the next is the same. Likewise if you select Centers from the Horizonal menu the they would be distributed such that the distance between the center (left-right) of each to the next would be the same. If you choose Abut, then the objects are placed so that they "butt"into each other in the manner that you have specified. The choice in popUps now refers the which item should remain still while the remainderbutt into it. For example Rights would cause the right-most selected object to remain where it was and the others to butt against one-another from there.Position Change:This section allows you to change the position of the selected objects by a uniform amount. Note that the numbers you place in there are the amount to move, to the location to move to. For example, entering a Horz of 10 would move all select objects right by 10 pixels. Likewise, entering Vert of 10 would move all the selected object down by 10 pixels.Size:This section allows you to set the height and/or width of all the selected objects. Note that, unlike Position ∆ above, this refers to the actual size, not a change of size. Therefore, a Width of 50 wouldmake all selected objects 50 pixels wide.Script:You may apply a single line of script to all the selected objects using this button. This can be used, for instance to change a property of all the selected objects. In the script line, refer to the object as obj. It will be translated appropriately. For example a script of "hide obj" would hide all the selected objects.</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>459</left>
<top>242</top>
<right>509</right>
<bottom>260</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export</name>
<script>on mouseDownend mouseDownon mouseUpcheck4Dirtyexportend mouseUpon exportglobal rptFile, rListput DialogResources() into rListput Dialoger("•export2" & return & "on exportHit"¬,"3◊UserBox Gray"¬,"4◊This dialog uses the resources listed below. "¬&"Those selected will be copied to the Settings file."¬,"5◊UserList Monaco,9"&return&rList¬,"7◊Hide"¬,"6◊Write Script"&return&"true") into dResultif line 1 of dResult is empty then exit exportif (line 5 of dResult is not empty) or (line 6 of dResult is true) thenanswer file "Select settings file to install dialog in:"if it is empty then exit exportput it into toFileput stackFileName() into fromFileend ifset cursor to watchif line 5 of dResult is not empty then exportDialog fromFile,toFileif line 7 of dResult is true then exportDescription rptFileif line 6 of dResult is true then makeStoreFile toFileend exporton exportDialog fromFile, toFileglobal rListrepeat with l = 1 to number of lines in rListput line l of rList into aResProgress "Copying:"&&aResProgress trunc(l/(number of lines in rList)*100)resCopyQuick fromFile,toFile,(char 1 to 4 of aRes),(char 6 to 99 of aRes)check aRes, the Resultend repeatprogress "Dismiss"end exportDialogon exportDialoger fromFile, toFileanswer "This is now done only in the Help stack."end exportDialogeron makeStoreFile toFileput (bg fld "DialogName") into dNameput buildScript(toFile) into theScript--Putting path from microphone settings file onto script fileput toFile into settingsFileput toFile into pathPullerrepeat while last char of toFile <> ":"delete last char of toFileend repeatput (bg fld "DialogName") after toFileopen file toFilewrite theScript to file toFileclose file toFile-- test for hitHandler to be builtput the script of bg fld "dialogRect" into testCheckif testCheck contains "getsHit: true" then -- test condition for making hitHandler--building hitHandler and writing to fileput (number of lines in bg fld "objList") into itemsput buildHitHandler(settingsFile, items) into hitScriptput " hit handler" after toFileopen file toFilewrite hitScript to file toFileclose file toFileend ifend makeStoreFileon check rName, msgif first word of msg is "Error:"then get alert("Stop", "Problem copying"&&rName&&"("&msg&")", "OK")else if msg is not emptythen get alert("Note", rName&&"renumbered to avoid id conflict.", "OK")end checkfunction buildScript toFileput return into CRprogress "Building script “"&(bg fld dialogName)&"”"global listCnt,popCnt,initTextput 0 into listCntput 0 into popCntput 0 into nxtParmput bg fld "itemList" into nListput (bg fld "DialogName") into dName-- MP file header generation hereput "Settings File = " & shortFileName(toFile) & CR &¬"Script Name = " & dName & CR &¬"Command Key = " & CR &¬"F-Key = " & CR &¬"Menu = No" & CR &¬"Button = No" & CR &¬"Version = 4000" & CR &¬"System = Macintosh" & CR & CR ¬into theHeaderput "Set Variable * CR from expression" && quote & "'^M'" & quote & ¬CR & CR into initTextput "Remark ""e& "Sample script created on"&&the long date & quote & ¬CR & CR after theHeaderput "Remark ""e&"Items in Dialog: “"&(bg fld "DialogName")&"”"¬"e & CR into theContentsput "Remark ""e&"-- -------------------------------""e&CR ¬after theContentsrepeat with l = 0 to (number of lines in bg fld "objList")progress "Building script “"&(bg fld dialogName)&"”"¬&" "&"(item "&l&")"if l > 0 then put "Remark ""e&l&&"◊"¬&&ChangeStr(line l of nList,quote,"'","all") & quote & CR after theContentsget inParm(l)if it is not empty thenget initListPop(it,l)put "Set Variable * pa" & nxtParm && "from expression" && quote ¬& it & quote & CR after theInvocationadd 1 to nxtParmend ifend repeatput return & "Set Variable * dResult from Expression " & quote &¬"MPDialogerPro(pa0," after theInvocationrepeat with l = 1 to nxtParm-1if nxtParm < 16 then put "pa" & l & "," after theInvocationend repeatdelete last char of theInvocationput ")" & quote & CR after theInvocationif nxtParm >= 16then put "Remark ""e&"The items initialized by pa16 through pa"¬&nxtParm&" could not be included.""e & CR after theInvocationput "Remark ""e&"-- -------------------------------""e&CR&CR¬after theContentsprogress "Dismiss"return theHeader & theContents & initText & theInvocationend buildScriptfunction cleanUp thePieceput changeStr(thePiece,"'","''","All") into thePieceput changeStr(thePiece,return,"' & CR & '","All") into thePieceput changeStr(thePiece,quote,"'","All") into thePiecereturn thePieceend cleanUpfunction initListPop txt, itemNoput return into CRif itemNo = 0 then return "'"&cleanUp(txt)&"'"global listCnt,popCnt,initTextif line 1 of txt contains "userList" thenadd 1 to listCntput "List"&listCnt into vNameelse if line 1 of txt contains "userPop" thenadd 1 to popCntput "PopUp"&popCnt into vNameelse return "'"& cleanUp(txt) & "'"put "Set Variable * "&vName&" from expression" && quote & "'"¬& cleanUp(line 2 to 999 of txt) & "'" & quote & CR & CR after initTextreturn "'"&itemNo&"◊"&cleanUp(line 1 of txt)&"' & CR & vName"end initListPopon exportDescription fNameif fName is empty thenget newfilename("Report Name:")if it is empty then exit exportDescriptionput it into fNameend ifopen file fNamewrite DialogDescription() to file fNameclose file fNameend exportDescriptionfunction DialogDescriptionput "Dialog Name/Title:"&&(line 1 of bg fld "dialogName")&return into ddput "Rectangle: ("&(rect of bg fld "dialogRect") &")" & return after ddput "Window Type:"&&WindowType(line 2 of bg fld "dialogRect") & return after ddput "As of:"&&the abbr date &&"at "&&the short time & return after ddrepeat with l = 1 to number of lines in bg fld "objList"put return after ddput line l of bg fld "objList" into objput getFromScript(obj,"iType") into iTypeif iType is "user"then put "Item"&&l&&"is a User Item ("&type2nice(getFromScript(obj,"uType"))&")"&return after ddelse put "Item"&&l&&"is a"&&type2nice(iType)&return after ddif getFromScript(obj,"getsHit")="true"then put "Receives “Hits”" & return after ddelse put "Disabled" & return after ddput "Rectangle: ("&(rect of obj)&")" & return after ddif iType is in "btn,rad,chk"then put "Label:"&&short name of obj & return after ddelse if iType is in "pict,icon"then put "Resource:"&&short name of obj & return after ddelse if iType is in "edit,stat"then put "Text: " & value(obj) & return after ddend repeatreturn ddend DialogDescriptionfunction windowType wif w = 0 then return "Standard document"else if w=1 then return "Standard dialog"else if w=2 then return "Plain box"else if w=3 then return "Shadowed box"else if w=4 then return "Document window without size box"else if w=528 then return "Palette"else if w=544 then return "Glass"else if w>=16 then return "Round corner box"end windowTypefunction buildHitHandler tofile, itemsput return into CRput (bg fld "DialogName") into dNameprogress "Building script “"&dName & "_h" &"”"-- MP file header generation hereput "Settings File = " & shortFileName(toFile) & CR &¬"Script Name = " & dName & "_h" & CR &¬"Command Key = " & CR &¬"F-Key = " & CR &¬"Menu = No" & CR &¬"Button = No" & CR &¬"Version = 4000" & CR &¬"System = Macintosh" & CR & CR ¬into theHeaderput "Remark ""e& "Sample script created on"&&the long date & quote & ¬CR & CR after theHeaderput "If Expression" && quote & "itemHit = '0'" & quote & CR into bodyput " Remark " & quote &"Initialize Dialog" & quote & CR after bodyrepeat with i = 1 to itemsput "Else If Expression" && quote & "itemHit = '"& i &"'" & quote & CR after bodyput " Remark " & quote &"dialog item " & i & " has been hit" & quote & CR after bodyend repeatput "End If" after bodyprogress "Dismiss"return theHeader & bodyend buildHitHandler-- HelpTextExport (Dialog)The Export button allows you to install your hard work into Microphone documents. This installation includes all the resources needed by the dialog and may include a button whose script contains an invocation of Dialoger with the necessary parameters to display the dialog as it is represented on the card.If you choose to have a button created, it will be placed on the clipboard from which it may be pasted onto the card of your choice in the target stack. If you have created a hit handler script in the card script, this too will be included with the button and installed in th stack script the first time it is clicked.Note: Like Show, this button does not re-Create the dialog. Therefore, if any changes have been made to the dialog itself, it should be recreated first.</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>460</left>
<top>283</top>
<right>508</right>
<bottom>295</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<name>PICT</name>
<script>on mouseDownend mouseDownon mouseUpglobal helpFlagif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifpMakerend mouseUpon pMakerask "Name for new PICT:"if it is not empty thenget pMaker("",it)get alert("Note", "The picture has been installed as #"&it, "OK")end ifend pMaker-- HelpTextPICT MakerThis button allows you to create PICTs out of any part of the card.Simply click on this button, enter a name for the picture beingcreated and then trace out the area to be turned into a picture(the pixels under the selection box are part of the image)Note: The picture is made up of exactly what appears on the card inarea selected; regarless of whether it is composed of buttons, icons,card art, background art, etc. - these are all "captured".The newly created picture may be used in a picture item by selectingit from the picture list.When completed, the clipboard will also contain a graphic of the areaselected. This can be handy for converting icons into card art. (Todo this without making a picture resource, you can type "pMaker()" intothe message box directly.</script>
</part>
<part>
<id>47</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>52</top>
<right>501</right>
<bottom>305</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>New York</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Helper</name>
<script>on mouseUpif the cmdKey is down thenset lockText of the target to not lockText of the targetexit mouseUpend ifglobal helpFlagput false into helpFlaglock screenrepeat with o = 1 to number of cd btnsshow cd btn oend repeatrepeat with o = 1 to number of cd fldsshow cd fld oend repeathide bg fld "helper"hide bg fld "instructions"hide bg fld "outline"show bg fld dialogRectshow cd pictureunlock screenend mouseUp</script>
<script>on mouseUpdo "get "&&the targetset lockmessages to truelock screenrepeat with c = 1 to number of cdsgo to next cddo "put it into"&&the targetend repeatunlock screenset lockmessages to falseend mouseUp</script>
</part>
<part>
<id>62</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>457</left>
<top>0</top>
<right>483</right>
<bottom>20</bottom>
</rect>
<style>rectangle</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>4154</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>CNTL tool</name>
<script>on mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifget preAssignedLabel()put false into expressset cursor to watchlock screenset editBkgnd to falsedoMenu "New Button"put number of cd btns into btnNoput "cd btn id"&&(id of cd btn btnNo) into objputIntoScript obj, "iType", "CNTL"putIntoScript obj, "getsHit", "True"set style of obj to rectset name of obj to "Custom Control"set showName of obj to trueset width of obj to 200set height of obj to 16set loc of obj to loc of bg fld "dialogRect"choose browse toolunlock screensend "editItem"&&"true" to objend mouseUp-- HelpTextCustom Control ToolThis button allows you to create a new custom control for the dialog box that you are designing. You may choose either one of the built-in control types or any CDEF which has been installed in the Home Stack. You will also be asked for a title of the control, its value and the range of values that are allowed. The apperance and effect of the control in the actual dialog depends on its type. On the card, however, it simply appears as a box with its title. The types included in the Dialog Maker stack are:Push Button — identical in operation to the conventional push button item, this control differs only in its appearance. Rather than always appearing in Chicago font, it uses the dialog's default font (which may be set using the Font command). The value of a Push Button is 0 except while it is depressed — when its one. Accordingly the min. and max. should be set to 0 and 1 respectively.Radio Button — like the Push Button above, this version of a radio button uses the dialog's default font. The value of a Radio Button is 0 when unhilited and 1 when hilted. Accordingly the min. and max. should be set to 0 and 1 respectively. Since custom controls provide no automatic value-changing services, you will need to use a hit handler to manage the hiliting of each button in a group.Three-way Radio Button — This control is the same as the one above except that instead of only two states (1=true / 0=false), it also supports a third (2=maybe). This is handy in situations where the initial condition of the button is indeterminate. Since custom controls provide no automatic value-changing services, you will need to use a hit handler to manage the hiliting of each button in a group.Note: The maybe state should only be used as an initial value, not as a result of the item having been clicked.Checkbox — like the Radio Button above, this version of a checkbox uses the dialog's default font. The value of a checkbox is 0 when unhilited and 1 when hilted. Accordingly the min. and max. should be set to 0 and 1 respectively. Since custom controls provide no automatic value-changing services, you will need to use a hit handler to manage the hiliting of each button.Three-way Checkbox — This control is the same as the one above except that instead of only two states (1=true / 0=false), it also supports a third (2=maybe). This is handy in situations where the initial condition of the button is indeterminate. Since custom controls provide no automatic value-changing services, you will need to use a hit handler to manage the hiliting of each button. (Usually by cycling through the three possible values).Scrollbar — while the buttons mentioned above have only two values, scrollbars are more flexible. They can accomodate a full range of integer values (ie 1-2-3 but not 1.5). This means that a particular scrollbar might represent a number between 1 and 100 — or perhaps between 97 and 423. However, since custom controls provide no automatic value-changing services, you will need to use a hit handler to manage the scrollbar. This is not a trivial undertaking… good luck!Note: since the thumb of the scrollbar represents the actual value, it may occupy only locations which represent an integer. This means, for example, that a scrollbar whose min is 1 and max is 3 will only have three possible locations for the thumb (far left, middle, far right). Dragging the thumb anywhere else will cause it to jump to the appropriate place.Progress Box — this control is used for information purposes only; it cannot be set by the user. It simply fills an empty box with a pattern to indicate the degree to which an operation has been completed. It can accomodate any range of integer values but the most convenient is usually 1 to 100. This technique is often used with an orphan dialog where the value of the control is set periodically to indicate the progress of an operation. The dialog is then dismissed when the operation is completed.The progress box may be oriented either horizonally or vertically. It will be filled from either the left side or bottom accordingly. If it is exactly square, a circle will be used instead where progress is indicated by filling an increasingly large slice. The pattern used is gray unless the title of the control is exactly one of these alternative fill pattern names: (Black, dkGray, Gray, ltGray, White.)Progress Pict — this control is used for information purposes only; it cannot be set by the user. It simply moves the specified picture to indicate the degree to which an operation has been completed. It can accomodate any range of integer values but the most convenient is usually 1 to 100. This technique is often used with an orphan dialog where the value of the control is set periodically to indicate the progress of an operation. The dialog is then dismissed when the operation is completed.The progress pict may be oriented either horizonally or vertically. It will be offset from either the left side or bottom accordingly. The picture's name or id must be specified as the title.</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>450</left>
<top>2</top>
<right>509</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Tools</name>
<script>on mouseUp theLocH,theLocVglobal dResultput return into CRif theLocH is empty thenget loc of cd windowput (item 1 of it + 420) into theLocHput (item 2 of it + 70) into theLocVend ifget dContents("•thePalette")if it is 0 thenif displayColors()>4 then put 3223 into thePict else put empty into thePictput Dialoger("•thePalette" & CR & "float" & CR & "on toolHit" ¬& CR & "loc"&&theLocH&","&theLocV & CR & "onError palError"¬, "1◊PictButton 3,4,Push"¬, "2◊PictButton 1,4,Push"¬, "3◊PictButton 3,1,Push"¬, "4◊"&thePict ¬) into dResultend ifcheckresult dResultend mouseUp</script>
<script>on mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifgo prevend mouseUp-- HelpTextPrevious Card ButtonThis button allows you to go to the previous card in the stack.</script>
</part>
<part>
<id>68</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>398</left>
<top>3</top>
<right>423</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifgo nextend mouseUp-- HelpTextNext Card ButtonThis button allows you to go to the next card in the stack.</script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>424</left>
<top>3</top>
<right>448</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>on mouseUpglobal helpFlag, expressif helpFlag is true thenput helpText(the target) into bg fld "helper"exit mouseUpend ifpop cdend mouseUp-- HelpTextGo Back ButtonThis button allows you to go back to the card you where in before youcame here.</script>
</part>
<part>
<id>77</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>403</left>
<top>28</top>
<right>503</right>
<bottom>50</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Index</name>
<script>--Sample script for invoking "Index"--Created on Thursday, February 1, 1990on mouseUp theLocH,theLocVglobal dResultput return into CRif dContents("•Index") is not 0 then exit mouseUp-- --------------------------------- Items in Dialog: "Index"-- --------------------------------- 1 ◊ Button "OK"-- 2 ◊ List "One"-- 3 ◊ Box (Gray pen, None fill)-- 4 ◊ Static Text "Dialogs"-- 5 ◊ Static Text "Items in “Untitled”"-- 6 ◊ List "1◊Push Button "OK""-- 7 ◊ Picture "13665"-- -------------------------------global dialogList,dWideput empty into dWideput ResNameList(stackfilename(),"DLOG") into dialogListSort lines of dialogListput line 23 to 32767 of DialogList into DialogListput "" into List2if theLocH is empty thenget loc of cd windowput (item 1 of it + 20) into theLocHput (item 2 of it + 70) into theLocVend ifput Dialoger("•Index" & CR & "on indexHit" & CR & "Float" ¬& CR & "Width 157"¬, "0◊onError errHit" ¬, "0◊Loc"&&theLocH&","&theLocV ¬, "2◊userList Geneva,10,KeyScroll" & CR & dialogList¬, "3◊userBox Gray,None,Copy"¬, "4◊Dialogs"¬, "5◊Items in ""e&"Untitled""e&""¬, "6◊userList Geneva,9,NoSelection" & CR & List2¬, "7◊PictButton 3,1,Push"¬) into dResultif word 1 of dResult is "Error:"then answer dResultend mouseUpon indexHit dialog, iHit, pHitglobal dialogList, dWide ,resDeleteListif iHit=0 thendChanger dialog,"2◊SelectText"&&(bg fld "DialogName")else if iHit = 2 thenget dContents(dialog,iHit)if it is not empty thenput line it of dialogList into dNamefind dName in bg fld "DialogName"if the result is not empty then makeItemList dialog, dNameend ifelse if iHit = 7 thenif pHit = 1 then -- Newask "Name for new dialog?" with "Untitled"if it is empty then exit indexHitdoMenu "New Card"put it into bg fld "DialogName"dChanger dialog,"2◊Add 1"&return&it&return&"select 1"put it & return before dialogListelse if pHit = 2 then -- Deleteput dContents(dialog,2,"alt") into theDialogif theDialog is empty then exit indexHitif bg fld "DialogName" = theDialogthen put DialogResources() into rListelse put DialogResources(theDialog) into rListif bg fld "DialogName" = theDialogthen doMenu "Delete Card"else deleteDialog(rList)else if pHit = 3 then -- Infoif dWide is not empty thendChanger dialog & return & "Width 157"put empty into dWideelseput true into dWideget dContents(dialog,2)if it is not emptythen makeItemList dialog, (line it of dialogList)dChanger dialog & return & "Width 350"end ifend ifend ifend indexHit-- HelpTextIndexThis tool displays an index or table of contents for the Dialog Maker stack. Every dialog which exists in the stack's resources is listed here (except those used within Dialog Maker itself). When you click on a dialog's name, you will be taken immediately to the card which houses its description—unless there is no such card. Below the list of dialogs there are three buttons: New, Delete and Items.New — creates a new card on which a new dialog may be created from scratch (or an existing one imported).Delete — deletes the selected dialog from the Dialog Maker stack (and its card as well). A list of all the resources used by the dialog is presented. Only those resources which are selected will be deleted so those shared by more than one dialog (eg PICTs) may be spared from their fate by making sure they are not selected. Note: for technical reasons, the deletion does not take place immediately, but rather, when you next leave the stack — for any reason.Items — expands the dialog to display a list of the items in the dialog. This list can serve as a handy reference while working on a dialog (particularly its hit handler).</script>
</part>
<part>
<id>79</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>3</left>
<top>2</top>
<right>25</right>
<bottom>20</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>on mouseUp lockItglobal LPput LockIt into LPget dContents("About This Dialog")if it is 0 thenif LockIt is empty then put "UnlockText" into itget dialoger("•About"¬& return & "on aboutHit" ¬& return &"Title About This Dialog" ¬& return & "float"¬, "3◊StyledText Geneva, 9" & return & bg fld "about")if word 1 of it is "Error:" then answer itend ifend mouseUp</script>
<script>on palError dialog,errIDend palErroron rescopycloseStackpass rescopyend rescopyon aboutHit dialog, iglobal LPif LP is not empty thendChanger dialog,"3◊locktext"put empty into aboutHitelse if i is -1 or i is 1 thenget dContents(dialog,3)if word 1 of it is not "Error:" then put it into bg fld "About"end ifend aboutHiton choiceHit dialog,iglobal objif i = 4 then set style of obj to opaqueelse if i = 5 then set style of obj to rectelse if i = 6 then set style of obj to scrollingelse if i = 7 then set style of obj to shadowend choiceHiton findHit dialog,itemHitsend "findHit"&&dialog&","&itemHit to cd id 6568end findHiton check4Dirtyglobal dirtyif dirty is not true then exit check4Dirtyget alert("Caution", "There have been changes since the last time"¬&"e&(bg fld "dialogName")"e&&"was Created."¬&&"Shall I re-Create it first?", "Yes", "No","Cancel")if it is "Cancel" then exit to hyperCardelse if it is "Yes" then send "mouseUp true" to bg btn "Create"end check4Dirtyon showPict objif obj is emptythen get rect of the targetelse get rect of objDisplayPict (short name of the target), itend showPicton helpHit dialog, itemHit, partHitsend "helpHit"&&dialog&","&itemHit&","&partHit to bg btn "Help"end helpHiton deleteButtonglobal express, dirtyif express is true then exit deleteButtonif word 1 of the target is not "card" then exit deleteButtonput true into dirtyput "cd btn id"&&(id of the target) into patrepeat with l = 1 to number of lines in bg fld "objList"if line l of bg fld "objList" is pat thendelete line l of bg fld "objList"delete line l of bg fld "itemList"exit repeatend ifend repeatif last char of bg fld "objList" is return thendelete last char of bg fld "objList"delete last char of bg fld "itemList"end ifend deleteButtonon deleteFieldglobal express, dirtyif express is true then exit deleteFieldif word 1 of the target is not "card" then exit deleteFieldput true into dirtyput "cd fld id"&&(id of the target) into patrepeat with l = 1 to number of lines in bg fld "objList"if line l of bg fld "objList" is pat thendelete line l of bg fld "objList"delete line l of bg fld "itemList"exit repeatend ifend repeatif last char of bg fld "objList" is return thendelete last char of bg fld "objList"delete last char of bg fld "itemList"end ifend deleteFieldon newButtonglobal express,dirtyif express is true then exit newButtonif word 1 of the target is not "card" then exit newButtonput true into dirtyget "cd btn id "&(id of the target)if bg fld "objList" is empty thenput it into bg fld "objList"put "Unknown Item" into bg fld "itemList"elseput return & it after bg fld "objList"put return & "Unknown Item" after bg fld "itemList"end ifend newButtonon newFieldglobal express, dirtyif express is true then exit newFieldif word 1 of the target is not "card" then exit newFieldput true into dirtyget "cd fld id "&(id of the target)if bg fld "objList" is empty thenput it into bg fld "objList"put "Unknown Item" into bg fld "itemList"elseput return & it after bg fld "objList"put return & "Unknown Item" after bg fld "itemList"end ifend newFieldon makeHit dialog,iglobal dList,fNameif i=0 thenput empty into fNamedChanger dialog,"5◊SingleSelection"else if i is 3 thenanswer file "Select file to open below:"set cursor to arrowif it is empty then exit makeHitput it into fNameput resSortedList(fName,"DLOG") into dListdChanger dialog,"5◊New"&return&dList,"6◊Dialogs in “"¬&shortFileName(fName)&"”"end ifif first word of the result is "Error:" then boom the resultend makeHiton editItem firstTimeglobal type, objif the target is "bkgnd field"&"e&"dialogRect""e thenget editDialog()exit editItemend ifget word 1 to 2 of the targetif it is "card button" then put "cd btn"&&"id"&&(id of the target) into objelse if it is "card field" then put "cd fld"&&"id"&&(id of the target) into objelse exit editItemput getFromScript(obj, "iType") into typeif type is "user" then put getFromScript(obj, "uType") into typeif type is in "btn,rad,chk" then editBtn firstTimeelse if type is in "icon,pict" then editGraphicRes firstTimeelse if type is in "edit,stat" then editdText firstTimeelse if type is in "pop,list" then editList firstTimeelse if type is "box" then editBox firstTimeelse if type is "cntl" then editCNTL firstTimeelse if type is in "text" thenPutIntoScript obj,"iType","stat"editdText firstTimeend ifrepeat with l = 1 to number of lines in bg fld "objList"if line l of bg fld "objList" is obj thenput niceObj(obj) into line l of bg fld "itemList"if firstTime is true thengo this cdsend "mouseDown" to objend ifexit repeatend ifend repeatend editItemon editBtn firstTimeglobal type, obj,dirtyput true into dirtyput short name of obj into bTitleif bTitle contains " id"&&id of obj then put empty into bTitleput Dialoger("•btn"¬, "3◊Dismiss"¬, "5◊"&bTitle¬, "6◊userBox Gray"¬) into dResultif first word of dResult is "Error:" then boom dResultif line 2 of dResult is not empty thenif firstTime is true thenselect objdoMenu "clear button"choose browse toolend ifexit editBtnend ifif type <> "btn" thenput stringWidth(short name of obj,"chicago",12) into oldPixLenif oldPixLen + 20 = (width of obj) or firstTime is true thenget line 5 of dResultput stringWidth(it,"Chicago",12) into PixLenget rect of objput item 1 of it + pixLen + 20 into item 3 of itset rect of obj to itend ifend ifset name of obj to line 5 of dResultif line 3 of dResult is not empty thengo this cdPosObj objend ifend editBtnon editBox firstTimeglobal objput return into CRput "Copy" & CR &¬"Or" & CR &¬"Xor" & CR &¬"Bic" & CR &¬"(-" & CR &¬"NotCopy" & CR &¬"NotOr" & CR &¬"NotXor" & CR &¬"NotBic" into modePopput "None<I" & CR &¬"Black" & CR &¬"White" & CR &¬"Gray" & CR &¬"ltGray" & CR &¬"dkGray" into patPopget short name of objif it contains " id"&&id of obj then get emptyput Dialoger("•userBox"¬, "0◊on boxHit"¬, "3◊Dismiss"¬, "4◊"&GetFromScript(obj,"getsHit")¬, "5◊Title:"¬, "6◊"&it¬, "7◊userBox gray"¬, "11◊userPop" && GetFromScript(obj,"bMode") & ",10" & CR &modePop¬, "12◊userPop" && GetFromScript(obj,"bFill") & ",9"&CR&patPop¬, "13◊userPop" && GetFromScript(obj,"bPen") & ",8"&CR&patPop¬, "14◊userBox gray"¬) into dResultif first word of dResult is "Error:" then boom dResultif line 2 of dResult is not empty thenif firstTime is true thenselect objdoMenu "clear field"choose browse toolend ifexit editBoxend ifPutIntoScript obj,"getsHit",(line 4 of dResult)Set name of obj to line 6 of dResultif line 11 of dResult is not emptythen putIntoScript obj,"bMode",(line 11 of dResult)if line 12 of dResult is not emptythen putIntoScript obj,"bFill",(line 12 of dResult)if line 13 of dResult is not emptythen putIntoScript obj,"bPen",(line 13 of dResult)if line 13 of dResult is in "black,dkGray"then set style of obj to rectelse set style of obj to opaqueif line 3 of dResult is not empty thengo this cdPosObj objend ifend editBoxon BoxHit dialog,iglobal type, obj, rType,grid,logicput return into CRif i=0 thenput getFromScript(obj,"Grid") into gridput getFromScript(obj,"Logic") into logicelse if i = 1 or i = 3 thenputIntoScript obj, "grid", gridPutIntoScript obj, "logic", logicelse if i = 15 thendChanger dialog,"4◊true","11◊Select 2","12◊Select 1","13◊Select 1"GetGrid("box")end ifif the result is not empty then boom result()end BoxHiton getGrid typeglobal logic, gridif type is "Box" then put "6◊inactivate" into radioableelse put empty into radioableput Dialoger("•Grid"¬, "3◊"&(item 1 of grid)¬, "4◊"&(item 2 of grid)¬, "6◊"&(logic = "radio")¬, "7◊"&(logic = "push")¬, "8◊userBox gray"& return & " Selection Logic: "¬, "9◊userBox gray"¬, radioable¬) into dResultif line 1 of dResult is "ok" thenput line 3 of dResult&","&line 4 of dResult into Gridif line 6 of dResult is truethen put "Radio" into logicelse put "Push" into logicelseput "0,0" into gridput "NA" into logicend ifend getGridon editGraphicRes firstTimeglobal type, obj, rType, dirty,resDeleteList,fNumput true into dirtyif type is "icon"then put "ICON" into rTypeelse put "PICT" into rTypeglobal rID,fNameput return into CRif firstTime is true then put false into getsHitelse put GetFromScript(obj,"getsHit") into getsHitif type is "icon" thenget resIDList(stackFileName(),"ICON")put "userList ICONs"&return&it into list1put "Icons in “"&short name of this stack&"”" into lblelseget resIDList(stackFileName(),"PICT")put "userList PICTs"&return&it into list1put "Pictures in “"&short name of this stack&"”" into lblend ifput Dialoger("•GraphicRes" & CR & "on GraphicResHit"¬, "0◊KeyScrollItem 7"¬, "3◊Dismiss"¬, "5◊userBox Gray"¬, "6◊"&getsHit ¬, "7◊"&List1¬, "8◊"&lbl¬, "9◊Dismiss"¬, "10◊StyledText Geneva,9"& CR ¬, "11◊Dismiss"¬) into dResultif fNum is not empty thencloseResFork(fNum)put empty into fNumend ifif first word of dResult is "Error:" then boom dResultif (line 2 of dResult) is not empty thenif firstTime is true thenselect objdoMenu "clear button"choose browse toolend ifexit editGraphicReselse if line 9 of dResult is not empty thenask "Name for new graphic:"if it is empty then exit editGraphicReshide objgo this cdif type is "icon"then put iMaker("",it) into rIDelse put pMaker("",it) into rIDshow objput empty into fNameelse if line 11 of dResult is not empty thenget item 1 of line 7 of dResultif it is not empty thenif Alert("Caution","Really delete this"&&rtype&&"permanently?","OK" ,"Cancel") is "OK" thenget line (it+1) of list1if fName is empty then put stackFileName() into fNameResDelete fName, rType,itif the result is not emptythen get alert("Note","("&type&&it&")"&&(the result),"OK")end ifend ifselect objdoMenu "clear button"choose browse toolexit editGraphicResend ifif rID is not empty thenget stackFileName()if (fname is not empty) and (it <> fName) thenresCopyQuick fName,it,rType,rIDif first word of the result is "Error:" then boom result()else if the result is not empty then put result() into rIDend ifif type is "pict" thenget pictRect(rID)put item 4 of it - item 2 of it into dHput item 3 of it - item 1 of it into dVget rect of objput item 2 of it + dH into item 4 of itput item 1 of it + dV into item 3 of itset rect of obj to itput obj into pObjToUpdateelse set icon of obj to rIDset name of obj to rIDend ifPutIntoScript obj,"getsHit",(line 6 of dResult)if line 3 of dResult is not empty thengo this cdposObj objend ifend editGraphicReson GraphicResHit dialog,iglobal type, obj, rType,grid,logicglobal fNum,fName,rID, resDeleteListput return into CRif i=0 thenput empty into fNumput empty into fNameput short name of obj into rIDif rID contains " id"&&id of obj then put empty into rIDput "" into txtif rID is not empty thenget rInfo("",rType,rID)if first word of it is not "Error:"then put "#"&it into txtelse put "Information unavailable" into txtend ifput getFromScript(obj,"Grid") into gridput getFromScript(obj,"Logic") into logicdChanger dialog,"7◊SetDblCLick 1"&return&"Keyscroll"¬&return&"SingleSelection"&return&"SelectText"&&rID,"9◊Dismiss","10◊"&txtelse if i = 1 or i = 3 thenif fNum is not empty thencloseResFork(fNum)put empty into fNumend ifputIntoScript obj, "grid", gridPutIntoScript obj, "logic", logicput dContents(dialog,7,"alt") into rIDelse if i = 4 thenif fNum is not empty then closeResFork(fNum)answer file "Please select file below:"put it into fNameset cursor to arrowif fName is empty then exit GraphicResHitif fNum is not empty then closeResFork(fNum)put openResFork(fName) into fNumget resIDList(fName,rType)put "new"&return before itput rType&"s in “"&shortFileName(fName)&"”" into lbldChanger dialog,"7◊"&it,"8◊"&lbl,"10◊","11◊Inactivate"if the result is not empty thenboom result()end ifelse if i = 7 thenget dContents(dialog,7,"alt")if it is not empty thenget rInfo("",rType,it)if first word of it is not "Error:"then put "#"&it into txtelse put "Information unavailable" into txtelse put empty into txtdChanger dialog,"10◊"&txtelse if i = 12 thenif rType="PICT" thendChanger dialog,"6◊true"GetGridelsedChanger dialog,"6◊"&(dContents(dialog,6)="false")end ifend ifif the result is not empty then boom result()end GraphicResHiton editdText firstTimeglobal obj, type, dirtyput true into dirtyif type is "stat" thenput "Text:" into lblput "Hide" into protBtnif GetFromScript(obj,"Scroll") then put 7 into theStyleelse if GetFromScript(obj,"Fancy") then put 6 into theStyleelse put 5 into theStyleelseput "Default:" into lblput empty into protBtnget GetFromScript(obj,"Prot")if it is true then put 8 into theStyleelse if GetFromScript(obj,"Scroll") then put 7 into theStyleelse if GetFromScript(obj,"Fancy") then put 6 into theStyleelse put 5 into theStyleend ifdo "get"&&objput it into theTextput Dialoger("•txt" & return & "on txtHit"¬, "3◊dismiss"¬, "4◊"&GetFromScript(obj,"getsHit")¬, theStyle&"◊True"¬, "8◊"&ProtBtn¬, "10◊"&lbl¬, "11◊"&theText¬, "12◊userBox Gray"¬, "13◊userBox Gray"¬) into dResultif first word of dResult is "Error:" then boom dResultif line 2 of dResult is not empty thenif firstTime is true thenselect objdoMenu "clear field"choose browse toolend ifexit editdTextend ifput rect of obj into oldRectput empty into newStyleif line 7 of dResult is false and theStyle = 7 thensubtract 16 from item 3 of oldRectif type = "stat" thenadd 3 to item 1 of oldRectadd 3 to item 2 of oldRectsubtract 3 from item 3 of oldRectsubtract 3 from item 4 of oldRectput "opaque" into newStyleelse put "rect" into newStyleelse if line 7 of dResult is true and theStyle <> 7 thenadd 16 to item 3 of oldRectif type = "stat" thensubtract 3 from item 1 of oldRectsubtract 3 from item 2 of oldRectadd 3 to item 3 of oldRectadd 3 to item 4 of oldRectend ifif height of obj < 48then put (item 2 of oldRect) + 48 into item 4 of oldRectput "scrolling" into newStyleend ifif (line 5 of dResult is true) and (theStyle <> 5) thenset textfont of obj to "Chicago"set textSize of obj to 12set textAlign of obj to leftset textHeight of obj to 16set textStyle of obj to plainelse if (line 5 of dResult is false) and (theStyle = 5) thenif newStyle is emptythen if type = "stat"then put "opaque" into newStyleelse put "rect" into newStyleend ifput line 11 of dResult into newTextif length(newText) > 240 thenget alert("Caution","No more than 240 characters can fit in"¬&" a DITL. The remainder will be clipped.")put char 1 to 240 of newText into newTextend ifif type = "stat" and (theStyle = 5) thendo "get"&&objput stringWidth(it,"chicago",12) into oldPixLenif oldPixLen + 10 = (width of obj) or firstTime is true thenput stringWidth(newText,"Chicago",12) into PixLenput item 1 of oldRect + pixLen + 10 into newRightif newRight > 512 thenput 512 into newRightput trunc(PixLen/(512-(item 1 of oldRect))+1)*16 into newHeightelse put height of obj into newHeightput newRight into item 3 of oldRectput newHeight + (item 2 of oldRect) into item 4 of oldRectend ifend ifset rect of obj to oldRectif newStyle is not emptythen set style of obj to newStyledo "put newText into"&&objPutIntoScript obj,"getsHit",(line 4 of dResult)PutIntoScript obj, "Prot",line 8 of dResultPutIntoScript obj, "Scroll",line 7 of dResultPutIntoScript obj, "Fancy",(line 5 of dResult is false)if line 3 of dResult is not empty thengo this cdposObj objend ifend editdTexton txtHit dialog,iHitglobal objif iHit = 9 thenif dContents(dialog,5) then dChanger dialog,"6◊true"select objdoMenu "Text Style..."choose browse toolend ifend txtHiton editList firstTimeglobal obj, dList, typeput return into CRdo "put"&&obj&&"into List1"if type is "pop" then delete line 1 of List1put Dialoger("•userList" & CR & "on uListHit"¬, "3◊Dismiss"¬, "5◊userList" & CR & List1¬, "12◊userBox Gray"¬, "13◊userBox Gray"¬, "14◊userBox Gray"¬) into dResultif first word of dResult is "Error:" then boom dResultif line 2 of dResult is not empty thenif firstTime is true thenselect objdoMenu "clear field"choose browse toolend ifexit editListend ifdo "put dList into"&&objif type is "pop" then do "put return before"&&objif line 3 of dResult is not empty thengo this cdposObj objend ifend editListon uListHit dialog,iglobal type, obj, dListif i = 0 thendChanger dialog,"","","","SingleSelection","Inactivate"¬, "Inactivate", "Inactivate","","Inactivate","Inactivate"checkResult result()if type = "pop" thendChanger dialog,"","","","","","","","Inactivate"checkResult result()end ifelse if i = 1 thenput dContents(dialog,5,"all") into dListelse if i = 2 thenput empty into dListelse if i = 3 thenput dContents(dialog,5,"all") into dListelse if i = 4 thenadjBtns4List dialog,ielse if i = 5 thenget dContents(dialog,5,"alt")if it is not empty thendChanger dialog,"","",it & return & "select 1,999"checkResult result()end ifadjBtns4List dialog,ielse if i = 6 thenput dContents(dialog,4) into txtput dContents(dialog,5) into lnif ln is empty then put 1000 into lndChanger dialog,"","","Select 1,9999","Add"&&ln & return & txtcheckResult result()else if i = 7 thenput dContents(dialog,4) into txtput dContents(dialog,5) into lnif ln is empty thenbeepexit uListHitend ifdChanger dialog,"","","Select 1,9999","Replace"&&ln & return & txtcheckResult result()else if i = 8 thenput dContents(dialog,4) into txtput dContents(dialog,5) into lnif ln is empty thenbeepexit uListHitend ifdChanger dialog,"","","","Delete"&&ln & return & "Select"&&lncheckResult result()get dContents(dialog,5,"alt")dChanger dialog,"","",itcheckResult result()adjBtns4List dialog,ielse if i = 9 thenselect objdoMenu "Text Style..."choose browse toolput fontHeight((textfont of obj),(textSize of obj)) into fHif fH > 0 thenset textheight of obj to fHend ifget textStyle of objif it is not "plain" thenget alert("Caution", "Text Styles may not be applied to lists","OK")set TextStyle of obj to "plain"end ifget textAlign of objif it is not "left" thenget alert("Caution", "Text must be left-aligned in lists","OK")set TextAlign of obj to "left"end ifsend "closeField" to objelse if i = 10 thenget dContents(dialog,5)if it is empty thenbeepexit uListHitend ifdChanger dialog,"","","","swap"&&it-1&","&it¬& return & "Deselect"&&it ¬& return & "Select"&&it-1checkResult result()else if i = 11 thenget dContents(dialog,5)if it is empty thenbeepexit uListHitend ifdChanger dialog,"","","","swap"&&it&","&it+1¬& return & "Deselect"&&it ¬& return & "Select"&&it+1checkResult result()end ifend uListHiton adjBtns4List dialog,iget dContents(dialog,4)if it is empty thenif dContents(dialog,5) is emptythen dChanger dialog,"","","","","Inactivate","Inactivate","Inactivate","","Inactivate","Inactivate"else dChanger dialog,"","","","","Inactivate","Inactivate","Activate","","Activate","Activate"elseif dContents(dialog,5) is emptythen dChanger dialog,"","","","","Activate"&return&"Default","Inactivate","Inactivate","","Inactivate","Inactivate"else dChanger dialog,"","","","","Activate","Activate"&return&"Default","Activate","","Activate","Activate"end ifcheckResult result()end adjBtns4Listfunction swap a,b,listif a = 0 then return listif b > number of lines in list then return listput line a of list into tput line b of list into line a of listput t into line b of listreturn listend swapfunction editDialogglobal jList, wType, iList, beenInOptionsput false into beenInOptionsif (number of lines in bg fld "itemList") ¬<> (number of lines in bg fld "objList") then rebuildObjListelse if (bg fld "itemList" contains "Unknown Item") thenrepeat with l = 1 to number of lines in bg fld "itemList"if line l of bg fld "itemList" is "Unknown Item" thenput niceObj(line l of bg fld "objList") ¬into line l of bg fld "itemList"end ifend repeatend ifput return into CRput bg fld "objList" into jListput bg fld "itemList" into iListput bg fld "itemList" into List1put "Standard" & CR &¬"Plain" & CR &¬"Shadowed" & CR &¬"Titled" & CR &¬"Titled+Ï" & CR &¬"Resizable" & CR &¬"Resizable+Ï" & CR &¬"Palette" & CR &¬"Tall Palette" & CR &¬"Glass" into PopUp1if bg fld "objList" contains "bg fld id"then put true into cdPicelse put false into cdPicput line 2 of bg fld "DialogRect" into wTypeif line 3 of bg fld "DialogRect" is true then add 1 to wTypeif line 2 of bg fld "DialogRect" is 0 then add 6 to wTypeif line 2 of bg fld "DialogRect" = 2052 or line 2 of bg fld "DialogRect" = 528 then put 8 into wTypeif line 2 of bg fld "DialogRect" is "2054" then put 9 into wTypeif line 2 of bg fld "DialogRect" is 544 then put 10 into wTypeput Dialoger("•itemList" & CR & "on editDialogHit"¬,""¬, (bg fld "DialogName")¬, "userList Geneva,9" & CR & List1¬, ""¬, ""¬, "userBox Gray"¬, "userBox Gray"¬, "userPop"&&wType & CR & PopUp1¬, cdPic¬, ""¬, ""¬) into dResultcheckResult dResultif line 1 of dResult <> "ok" then return falseif wType = 5 thenput 4 into line 2 of bg fld "DialogRect"put true into line 3 of bg fld "DialogRect"else if wType = 6 thenput 0 into line 2 of bg fld "DialogRect"put false into line 3 of bg fld "DialogRect"else if wType = 7 thenput 0 into line 2 of bg fld "DialogRect"put true into line 3 of bg fld "DialogRect"else if wType = 8 thenput 2052 into line 2 of bg fld "DialogRect"put true into line 3 of bg fld "DialogRect"if beenInOptions is false thenput "Float" into line 7 of bg fld "DialogRect"end ifelse if wType = 9 thenput 2054 into line 2 of bg fld "DialogRect"put true into line 3 of bg fld "DialogRect"if beenInOptions is false thenput "Float" into line 7 of bg fld "DialogRect"end ifelse if wType = 10 thenput 544 into line 2 of bg fld "DialogRect"put false into line 3 of bg fld "DialogRect"if beenInOptions is false thenput "Float" into line 7 of bg fld "DialogRect"end ifelseput wType into line 2 of bg fld "DialogRect"put false into line 3 of bg fld "DialogRect"end ifput line 3 of dResult into bg fld "dialogName"put jList into bg fld "objList"put iList into bg fld "itemList"return trueend editDialogon editDialogHit dialog, iglobal jList,iList, wTypeif i = 0 thendChanger dialog,"","select 1,32000","singleSelection"¬,"Inactivate","inactivate"checkResult result()else if i = 4 thenput dContents(dialog,4) into lif l is emptythen dChanger dialog,"","","","Inactivate","Inactivate"else dChanger dialog,"","","","Activate","Activate"checkResult result()else if i = 5 thenget dContents(dialog,4)if it is empty thenbeepexit editDialogHitend ifif it is 3 and (word 1 of line 3 of iList) is not "Button" thenif alert("Caution","The second item in the list should be a"¬&&"Cancel button. Are you sure you want to move this item up?"¬,"Cancel","Move It") is "Cancel" then exit editDialogHitend ifdChanger dialog,"","","swap"&&it-1&","&it¬& return & "Deselect"&&it ¬& return & "Select"&&it-1checkResult result()put swap(it-1,it,jList) into jListput swap(it-1,it,iList) into iListelse if i = 6 thenget dContents(dialog,4)if it is empty thenbeepexit editDialogHitend ifif it is 2 and (word 1 of line 3 of iList) is not "Button" thenif alert("Caution","The second item in the list should be a"¬&&"Cancel button. Are you sure you want to move this item down?"¬,"Cancel","Move It") is "Cancel" then exit editDialogHitend ifdChanger dialog,"","","swap"&&it&","&it+1¬& return & "Deselect"&&it ¬& return & "Select"&&it+1checkResult result()put swap(it,it+1,jList) into jListput swap(it,it+1,iList) into iListelse if i = 9 thenput dContents(dialog,9,"alt") into wTypeelse if i = 10 thenif dContents(dialog,10) thenput dContents(dialog,4) into ldChanger dialog,"","","deselect 1,999"&return¬&"add"&&l&return&type2nice("card")checkResult result()if l is not empty thenput "bg fld id 48" & return before line l of jListput niceObj("bg fld id 48") & return before line l of iListelse if jList is empty thenput "bg fld id 48" into jListput niceObj("bg fld id 48") into iListelseput return & "bg fld id 48" after jListput return & niceObj("bg fld id 48") after iListend ifelsedChanger dialog,"","","deselect 1,999"&return&"SelectText"¬&&niceObj("bg fld id 48")checkResult result()put dContents(dialog,4) into lif l is empty thenbeepget alert("Stop", "Can't find card graphic item","Cancel")exit editDialogHitend ifdChanger dialog,"","","delete"&&lcheckResult result()delete line l of jListdelete line l of iListif last char of jList is return then delete last char of jListif last char of iList is return then delete last char of iListend ifelse if i= 13 thendialogOptionsend ifend editDialogHiton exportHit dialog, iHitglobal rptFile,rListif iHit = 0 thendChanger dialog,"5◊Select 1,999"else if iHit = 1 thenput dContents(dialog,5,"alt") into rListelse if iHit = 3 thenif dContents(dialog,3)=truethen dChanger dialog,"","","activate","activate"else dChanger dialog,"","","inactivate"&return&"false","inactivate"&return&"false"else if iHit = 7 thenif dContents(dialog,7)<>true thenput empty into rptFileelseask file "Report Name:"put it into rptFileif rptFile is empty then dChanger dialog,"7◊false"end ifend ifend exportHitfunction preAssignedLabel btnFlagif (the number of cd btns) + (the number of cd flds) = 0 thenif btnFlag is "true" then return "OK"elseget alert("Caution","The first item in the dialog should be an OK"¬&&"button. Are you sure you want to continue?","Cancel","Continue")if it is "cancel" then exit to HyperCardend ifelse if number of cd btns + number of cd flds = 1 thenif btnFlag is "True" then return "Cancel"elseget alert("Caution","The second item in the dialog should be a"¬&&"Cancel button. Are you sure you want to continue?","Cancel","Continue")if it is "cancel" then exit to HyperCardend ifend ifend preAssignedLabel-- ScriptEdit™ Prefs:Monaco,9,39,2,465,588,22908,22908,0</script>
